Business Assistant/Business Assistant.iso/acctg/db3plsar/fido.prg

Text File | 1986-08-04 | 730b | 32 lines

***************************(B:FIDO.PRG)
CLEA
SET TALK OFF
STORE 1 TO COUNT
DO WHILE COUNT<3
   @ 1,1 SAY '         @    /\'
   @ 2,1 SAY '          \ _/  @'
   @ 3,1 SAY '          /  \'
   @ 4,1 SAY '         / oo|\'
   @ 5,1 SAY '        {_\  |_}'
   @ 6,1 SAY "   _    / _\@'_"
   @ 7,1 SAY '  //   / |     |'
   @ 8,1 SAY ' {{  _/  | {*} |'
   @ 9,1 SAY '  \\/  \ |__U__| '
   @ 10,1 SAY '   \   /_ || \\_'
   @ 11,1 SAY '    \____}|_} \_} '
   ?
   ?
   ?
   @ 5,20 SAY "That's not"
   @ 6,1 SAY ' _  '
   @ 7,1 SAY ' \\ '
   @ 14,1 SAY '  '
   @ 1,1 SAY '  '
   @ 6,20 SAY 'what I expected...'
   @ 6,1 SAY '   _  '
   @ 7,1 SAY '  //  '
   @ 14,1 SAY '  '
ENDIF
STORE COUNT+1 TO COUNT
ENDDO